home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 01 / e-compiler / e-compiler.ampk / E-Compiler / Sources / Other / Vd.e < prev   
Encoding:
Text File  |  1995-06-01  |  611 b   |  23 lines
  1. /* A small virus detector */
  2. /* By EA van Breemen */
  3.  
  4. MODULE 'exec/execbase'
  5.  
  6. DEF base:PTR TO execbase,x:PTR TO LONG
  7.  
  8. /* Main procedure */
  9.  
  10. PROC main()
  11.  WriteF('The E Virusdetector \c1993\n',169)
  12.  WriteF('By E.A. van Breemen\n')
  13.  base:=execbase  /* get execbase */
  14.  IF check_exec() THEN WriteF('Machine has been infected\n')
  15. ENDPROC
  16.  
  17. /* Check procedure of execbase */
  18.  
  19. PROC check_exec() RETURN Exists({x},
  20.   [[base.coldcapture,'ColdCapture'],[base.coolcapture,'CoolCapture'],
  21.   [base.kickmemptr,'KickMemPtr'],[base.kicktagptr,'KickTagPtr']],
  22.   `WriteF(IF x[0] THEN '\s Altered\n' ELSE '\s OK\n',x[1]) BUT x[0])
  23.